CLEAR ,,,10000 DIM CARA%(4500) A1$=GETS$("systext",1) A2$=GETS$("systext",2) A3$=GETS$("systext",3) A4$=GETS$("SYSTEXT",4) A5$=GETS$("SYSTEXT",5) CLRF "systext" VIEW "イメージ1" LOAD@ "CARACTER.ABC",CARA% MOUSE 0 MOUSE 1,280,169,0 FLAG=-1 WHILE FLAG CX=MOUSE(0):CY=MOUSE(1) PUT@A (CX-57,CY-69)-(CX+57,CY+69),CARA% IF (CX>267 AND CX<318) THEN IF (CY>236 AND CY<288) THEN PUTS "SYSTEXT","MIKAN",1:FLAG=0 IF (CX>0 AND CX<161) THEN IF (CY>46 AND CY<182) THEN PUTS "SYSTEXT","RYO",1:FLAG=0 IF (CX>501 AND CX<542) THEN IF (CY>48 AND CY<109) THEN PUTS "SYSTEXT","MARIO",1:FLAG=0 IF (CX>529 AND CX<596) THEN IF (CY>386 AND CY<445) THEN PUTS "SYSTEXT","UNZEN",1:FLAG=0 IF (CX>509 AND CX<600) THEN IF (CY>239 AND CY<437) THEN GO "ページ8/ボタン1" WEND VIEW END PUTS "systext",A2$,2 PUTS "systext",A3$,3 PUTS "SYSTEXT",A4$,4 PUTS "SYSTEXT",A5$,5 EFFECT VERTICAL(OPEN) GO "ページ2/多色フレーム"